home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok08.lha / CreateAmokDisk1.1 / AmokIcons / AmokRun.mod < prev    next >
Text File  |  1993-08-15  |  5KB  |  113 lines
  1.  
  2.           (* -------> IMPLEMENTATION MODULE <-------- *)
  3.  
  4. IMPLEMENTATION MODULE AmokRun;
  5.  
  6. FROM SYSTEM IMPORT      WORD;
  7.  
  8. FROM Heap IMPORT        AllocMem;
  9.  
  10. VAR     i   :INTEGER;
  11.  
  12.  
  13.  
  14. BEGIN   (* MAIN *)
  15.  
  16. FOR i:=0 TO   1  DO
  17.   AllocMem(ImgPtr[i],SIZE(ImgPtr[i]^),TRUE);
  18. END;
  19.  
  20. Imgwidth := 27;
  21. Imgheight:= 33;
  22. Imgdepth :=  2;
  23.  
  24.  
  25.  
  26. WITH ImgPtr[Run]^ DO         (* Run *)
  27.  
  28.   (* Plane 1 *)
  29.  
  30.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  31.  Dat[  4]:=00000H; Dat[  5]:=00000H; Dat[  6]:=00000H; Dat[  7]:=00000H;
  32.  Dat[  8]:=00000H; Dat[  9]:=00000H; Dat[ 10]:=00000H; Dat[ 11]:=00000H;
  33.  Dat[ 12]:=00004H; Dat[ 13]:=00000H; Dat[ 14]:=0000EH; Dat[ 15]:=00000H;
  34.  Dat[ 16]:=0001FH; Dat[ 17]:=00000H; Dat[ 18]:=0001FH; Dat[ 19]:=00000H;
  35.  Dat[ 20]:=0003FH; Dat[ 21]:=08000H; Dat[ 22]:=0003FH; Dat[ 23]:=08000H;
  36.  Dat[ 24]:=0003FH; Dat[ 25]:=0C000H; Dat[ 26]:=0003FH; Dat[ 27]:=0C000H;
  37.  Dat[ 28]:=0003FH; Dat[ 29]:=0C000H; Dat[ 30]:=0003FH; Dat[ 31]:=0C000H;
  38.  Dat[ 32]:=0003FH; Dat[ 33]:=0C000H; Dat[ 34]:=0003FH; Dat[ 35]:=0C000H;
  39.  Dat[ 36]:=0003FH; Dat[ 37]:=0C000H; Dat[ 38]:=0003FH; Dat[ 39]:=0C000H;
  40.  Dat[ 40]:=0003FH; Dat[ 41]:=0C000H; Dat[ 42]:=0003FH; Dat[ 43]:=0C000H;
  41.  Dat[ 44]:=0003FH; Dat[ 45]:=0C000H; Dat[ 46]:=0003FH; Dat[ 47]:=0C000H;
  42.  Dat[ 48]:=00031H; Dat[ 49]:=0C000H; Dat[ 50]:=00021H; Dat[ 51]:=0D000H;
  43.  Dat[ 52]:=00021H; Dat[ 53]:=0D800H; Dat[ 54]:=00401H; Dat[ 55]:=0DC00H;
  44.  Dat[ 56]:=00400H; Dat[ 57]:=03C00H; Dat[ 58]:=00600H; Dat[ 59]:=03C00H;
  45.  Dat[ 60]:=00300H; Dat[ 61]:=01800H; Dat[ 62]:=00000H; Dat[ 63]:=00000H;
  46.  Dat[ 64]:=00000H; Dat[ 65]:=00000H;
  47.  
  48.   (* Plane 2 *)
  49.  
  50.  Dat[ 66]:=00000H; Dat[ 67]:=00000H; Dat[ 68]:=00000H; Dat[ 69]:=00000H;
  51.  Dat[ 70]:=00000H; Dat[ 71]:=00000H; Dat[ 72]:=00000H; Dat[ 73]:=00000H;
  52.  Dat[ 74]:=00000H; Dat[ 75]:=00000H; Dat[ 76]:=00004H; Dat[ 77]:=00000H;
  53.  Dat[ 78]:=0000AH; Dat[ 79]:=00000H; Dat[ 80]:=00011H; Dat[ 81]:=00000H;
  54.  Dat[ 82]:=00020H; Dat[ 83]:=08000H; Dat[ 84]:=00060H; Dat[ 85]:=0C000H;
  55.  Dat[ 86]:=00040H; Dat[ 87]:=04000H; Dat[ 88]:=000C0H; Dat[ 89]:=06000H;
  56.  Dat[ 90]:=000C0H; Dat[ 91]:=02000H; Dat[ 92]:=000C0H; Dat[ 93]:=02000H;
  57.  Dat[ 94]:=000C0H; Dat[ 95]:=02000H; Dat[ 96]:=000C0H; Dat[ 97]:=02000H;
  58.  Dat[ 98]:=000C0H; Dat[ 99]:=02000H; Dat[100]:=000C0H; Dat[101]:=02000H;
  59.  Dat[102]:=000C0H; Dat[103]:=02000H; Dat[104]:=000C0H; Dat[105]:=02000H;
  60.  Dat[106]:=000C0H; Dat[107]:=02000H; Dat[108]:=000C0H; Dat[109]:=02000H;
  61.  Dat[110]:=000C0H; Dat[111]:=02000H; Dat[112]:=000C0H; Dat[113]:=02000H;
  62.  Dat[114]:=001CEH; Dat[115]:=03000H; Dat[116]:=003DEH; Dat[117]:=02800H;
  63.  Dat[118]:=007DEH; Dat[119]:=02400H; Dat[120]:=00BFEH; Dat[121]:=02200H;
  64.  Dat[122]:=00BFFH; Dat[123]:=0C200H; Dat[124]:=009CEH; Dat[125]:=04200H;
  65.  Dat[126]:=0048EH; Dat[127]:=02400H; Dat[128]:=0030EH; Dat[129]:=01800H;
  66.  Dat[130]:=0FFFFH; Dat[131]:=0FFE0H;
  67.  
  68. END;
  69.  
  70. WITH ImgPtr[RunH]^ DO         (* RunH *)
  71.  
  72.   (* Plane 1 *)
  73.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00004H; Dat[  3]:=00000H;
  74.  Dat[  4]:=0000EH; Dat[  5]:=00000H; Dat[  6]:=0001FH; Dat[  7]:=00000H;
  75.  Dat[  8]:=0001FH; Dat[  9]:=00000H; Dat[ 10]:=0003FH; Dat[ 11]:=08000H;
  76.  Dat[ 12]:=0003FH; Dat[ 13]:=08000H; Dat[ 14]:=0003FH; Dat[ 15]:=0C000H;
  77.  Dat[ 16]:=0003FH; Dat[ 17]:=0C000H; Dat[ 18]:=0003FH; Dat[ 19]:=0C000H;
  78.  Dat[ 20]:=0003FH; Dat[ 21]:=0C000H; Dat[ 22]:=0003FH; Dat[ 23]:=0C000H;
  79.  Dat[ 24]:=0003FH; Dat[ 25]:=0C000H; Dat[ 26]:=0003FH; Dat[ 27]:=0C000H;
  80.  Dat[ 28]:=0003FH; Dat[ 29]:=0C000H; Dat[ 30]:=0003FH; Dat[ 31]:=0C000H;
  81.  Dat[ 32]:=0003FH; Dat[ 33]:=0C000H; Dat[ 34]:=0003FH; Dat[ 35]:=0C000H;
  82.  Dat[ 36]:=0003FH; Dat[ 37]:=0C000H; Dat[ 38]:=00031H; Dat[ 39]:=0C000H;
  83.  Dat[ 40]:=00021H; Dat[ 41]:=0D000H; Dat[ 42]:=00021H; Dat[ 43]:=0D800H;
  84.  Dat[ 44]:=00401H; Dat[ 45]:=0DC00H; Dat[ 46]:=00400H; Dat[ 47]:=03C00H;
  85.  Dat[ 48]:=00600H; Dat[ 49]:=03C00H; Dat[ 50]:=00311H; Dat[ 51]:=01800H;
  86.  Dat[ 52]:=00031H; Dat[ 53]:=08000H; Dat[ 54]:=0003FH; Dat[ 55]:=08000H;
  87.  Dat[ 56]:=0001FH; Dat[ 55]:=00000H; Dat[ 58]:=0001FH; Dat[ 59]:=00000H;
  88.  Dat[ 60]:=0000EH; Dat[ 61]:=00000H; Dat[ 62]:=00004H; Dat[ 63]:=00000H;
  89.  Dat[ 64]:=00000H; Dat[ 65]:=00000H;
  90.  
  91.   (* Plane 2 *)
  92.  
  93.  Dat[ 66]:=00004H; Dat[ 67]:=00000H; Dat[ 68]:=0000AH; Dat[ 69]:=00000H;
  94.  Dat[ 70]:=00011H; Dat[ 71]:=00000H; Dat[ 72]:=00020H; Dat[ 73]:=08000H;
  95.  Dat[ 74]:=00060H; Dat[ 75]:=0C000H; Dat[ 76]:=00040H; Dat[ 77]:=04000H;
  96.  Dat[ 78]:=000C0H; Dat[ 79]:=06000H; Dat[ 80]:=000C0H; Dat[ 81]:=02000H;
  97.  Dat[ 82]:=000C0H; Dat[ 83]:=02000H; Dat[ 84]:=000C0H; Dat[ 85]:=02000H;
  98.  Dat[ 86]:=000C0H; Dat[ 87]:=02000H; Dat[ 88]:=000C0H; Dat[ 89]:=02000H;
  99.  Dat[ 90]:=000C0H; Dat[ 91]:=02000H; Dat[ 92]:=000C0H; Dat[ 93]:=02000H;
  100.  Dat[ 94]:=000C0H; Dat[ 95]:=02000H; Dat[ 96]:=000C0H; Dat[ 97]:=02000H;
  101.  Dat[ 98]:=000C0H; Dat[ 99]:=02000H; Dat[100]:=000C0H; Dat[101]:=02000H;
  102.  Dat[102]:=000C0H; Dat[103]:=02000H; Dat[104]:=001CEH; Dat[105]:=03000H;
  103.  Dat[106]:=003DEH; Dat[107]:=02800H; Dat[108]:=007DEH; Dat[109]:=02400H;
  104.  Dat[110]:=00BFEH; Dat[111]:=02200H; Dat[112]:=00BFFH; Dat[113]:=0C200H;
  105.  Dat[114]:=009CEH; Dat[115]:=04200H; Dat[116]:=0049FH; Dat[117]:=02400H;
  106.  Dat[118]:=0033FH; Dat[119]:=09800H; Dat[120]:=0003FH; Dat[121]:=08000H;
  107.  Dat[122]:=0001FH; Dat[123]:=00000H; Dat[124]:=0001FH; Dat[125]:=00000H;
  108.  Dat[126]:=0000EH; Dat[127]:=00000H; Dat[128]:=00004H; Dat[129]:=00000H;
  109.  Dat[130]:=0FFFFH; Dat[131]:=0FFE0H;
  110.  
  111. END;
  112. END AmokRun.
  113.